package modules::bazar;

use module;
use vars '@ISA';
@ISA = ("module");
use DBI;
use encoding "utf8";
use utf8;
use Text::Travesty;
use IO::File;

$t = Text::Travesty->new;
$fh = IO::File->new("../markov");

sub got_groupchat_prohor {
    my ($pkg,%args) = @_;
    my (@words_pr) = split(/ /,$args{body});
    my (@from_pr) = split(/ /,$args{from});
open (PIZDEZH, "otvet");
@pisdoarray = <PIZDEZH>;
$pisd = $pisdoarray[0];
$otvet_pr = $pisdoarray[1];
utf8::decode($pisd);
utf8::decode($otvet_pr);
@pizdezh = split(/\|/,$pisd);
@otvety_pr = split(/\|/,$otvet_pr);
close PIZDEZH;
if (!$text) {
@text = $fh->getlines;
$fh->close;
$text = join(/ /,@text);
}

$rand_pr1 = int(rand($#pizdezh));
$rand_pr2 = int(rand($#otvety_pr));
$rand_pr3 = int(rand(30));
unless ($args{resource} =~ /^($::nickname)[:,> ]/gi) {
   if ($words_pr[0] eq "all") {
# Здесь я затупил
     $otvet_bota = "$args{resource}:";
   } elsif ($#words_pr == 0) {
# Здороваецо сцуко
     $otvet_bota = "$args{resource}:";
   } elsif ($words_pr[1] eq "ты" && $#words_pr == 2) {
    $words_pr[2] =~ s/\?+//;
          if ($words_pr[2] eq "хуй") {
                  $otvet_bota = "$args{resource}: нет ты";
          } else {
           # Говорит что сам такой
                  $otvet_bota = "$args{resource}: сам ты $words_pr[2]";
          }
   } elsif ($words_pr[1] eq "нет" && $words_pr[2] eq "ты" ){
          $otvet_bota = "$args{resource}: нет ты";
   } elsif ($words_pr[-1] =~ /\?$/) {
# Типа отвечает на вопрос
     $otvet_bota = "$args{resource}: $otvety_pr[$rand_pr2]";
   } elsif ($words_pr[1] eq "фас") {
          if ($words_pr[2] !~ /($::nickname)/) { 
# Здесь прохор натравливаецо
      # $t->add($text);
      # $travesty = $t->generate($rand_pr3);
      # utf8::decode($travesty);
      # chomp($travesty);
      # $otvet_bota = "$words_pr[2] $travesty"; 
      $otvet_bota = "$words_pr[2] $pizdezh[$rand_pr1]";
          } else {
# А это для тех ебланов кто думает что хакер ниибацо
       $otvet_bota = "$args{resource}: хакир мля..";
          }
   } else {
# А в этом месте я пошол посрать
    #  $t->add($text);
    # $travesty = $t->generate($rand_pr3);
    # utf8::decode($travesty);
    # chomp($travesty);
    # $otvet_bota = "$args{resource}: $travesty";
    $fh_ign = IO::File->new("ignor");
    @imena = $fh_ign->getlines;
    foreach (@imena) {
       utf8::decode($_);
       chomp;
       $est_ign = 1 if $_ eq $args{resource};
    }
    $otvet_bota = "$args{resource}: $pizdezh[$rand_pr1]" unless $est_ign;
    undef $est_ign;
    $fh_ign->close;
   }
}
main::SendMessage(to => $args{from}, type => 'groupchat', body => "$otvet_bota") if $otvet_bota;
undef $otvet_bota;
}

main::pd("................\n\n\n");
1;